home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FST30A.ZIP;1 / Y.MOD < prev   
Encoding:
Text File  |  1992-09-20  |  852 b   |  31 lines
  1. MODULE y;
  2. FROM Objects IMPORT ALLOCATEOBJECT;
  3. FROM InOut IMPORT WriteString, WriteLn;
  4. FROM People IMPORT Programmer;
  5. FROM MyKindOfProgrammers IMPORT Modula2Programmer;
  6.  
  7. CLASS CProgrammer;
  8.   INHERIT Programmer;
  9. END CProgrammer;
  10.  
  11. VAR m2programmer :Modula2Programmer;
  12.     cprogrammer  :CProgrammer;
  13.  
  14. PROCEDURE ifIsSmart( p :Programmer; s :ARRAY OF CHAR );
  15.   BEGIN
  16.     IF p.isSmart() THEN
  17.       WriteString( s ); WriteLn;
  18.     END;
  19.   END ifIsSmart;
  20.  
  21. BEGIN
  22.   NEW( m2programmer );
  23.   NEW( cprogrammer );
  24.   ifIsSmart( m2programmer, "1st m2 programmer is smart" );
  25.   ifIsSmart( cprogrammer, "1st C programmer is smart" );
  26.   m2programmer.favoriteLanguage := "C";
  27.   cprogrammer.favoriteLanguage := "Modula-2";
  28.   ifIsSmart( m2programmer, "2nd m2 programmer is smart" );
  29.   ifIsSmart( cprogrammer, "2nd C programmer is smart" );
  30. END y.
  31.